clear; clc;

Folder      =   'TableGraphs\\HighVsLowIntegration\\';
mkdir(Folder);

load('Results_HighVsLowIntegrationDegree.mat');
load('..//1_Baseline//2_MainResults//SOLUTION.mat','SOLUTION_Main');

%% Collect the Results
Mom     =   SubFun_ResultCell2Mom({SOLUTION_Main,SOLUTION_Real,SOLUTION_Fin,SOLUTION_Both});
List_Model  =   {'Baseline','LowReal','LowFin','LowBoth'};
List_SH =   {'Eps_Eta_M_dom','Eps_Eta_Y_H','Eps_Eta_M_ext'};
for ii_SH=1:length(List_SH)
    SH      =   List_SH{ii_SH};
    TempData    =   [Mom.Stat.(SH)(1:3,:);...
                     bsxfun(@rdivide,Mom.Stat.(SH)(4:7,:),Mom.Stat.(SH)(1,:))];
    TempTable   =   array2table(TempData,'RowNames',Mom.StatNames,'VariableNames',List_Model);
    writetable(TempTable,[Folder,'SummaryTable.xlsx'],'WriteRowNames',true,'Sheet',SH);
end